home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_186_System Sublist Selection.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  1.1 KB  |  30 lines
  1. global glSystemSubList, gCurrentList, gSystemSelectedLine, gSystemSublistScroll, gListObject
  2.  
  3. on mouseUp me
  4.   if the mouseLine < 1 then
  5.     exit
  6.   end if
  7.   value(gListObject).pSubListLineNum = the mouseLine
  8.   gSystemSelectedLine = the mouseLine
  9.   gSystemSublistScroll = member("system sublist").scrollTop
  10.   hilite member("System sublist").line[the mouseLine]
  11.   value(gListObject).plFoundImages = getAt(glSystemSubList, member("System sublist").text.line[the mouseLine])
  12.   sprite(80).loc = point(-200, 0)
  13.   value(gListObject).pImageScroll = 1
  14.   value(gListObject).pCurrentImage = EMPTY
  15.   value(gListObject).pSelectedImageSpriteNum = 0
  16.   value(gListObject).pImageListPosition = 0
  17.   member("found count").text = "Images found:" && value(gListObject).plFoundImages.count
  18.   DisplayThumbNails()
  19.   UpdateImageScroller()
  20. end
  21.  
  22. on SelectLine me
  23.   if gSystemSelectedLine < 1 then
  24.     exit
  25.   end if
  26.   hilite member("System sublist").line[gSystemSelectedLine]
  27.   member("System sublist").scrollTop = gSystemSublistScroll
  28.   member("found count").text = "Images found:" && value(gListObject).plFoundImages.count
  29. end
  30.